home *** CD-ROM | disk | FTP | other *** search
/ Computer Shopper 201 / DPCS1104.ISO / Full / QuickBooks / QBTutor / Lesson5 / Lesson5.dcr / 00115_Invoice parts replacing.ls < prev    next >
Encoding:
Text File  |  2001-02-01  |  818 b   |  26 lines
  1. property spriteNum, pProductName, pProName, pServiceName
  2. global InvoiceFormTemplate
  3.  
  4. on getPropertyDescriptionList
  5.   description = [:]
  6.   addProp(description, #pProductName, [#default: EMPTY, #format: #string, #comment: "Product Cast Member:"])
  7.   addProp(description, #pProName, [#default: EMPTY, #format: #string, #comment: "Pro Cast Member:"])
  8.   addProp(description, #pServiceName, [#default: EMPTY, #format: #string, #comment: "Service Cast Member:"])
  9.   return description
  10. end
  11.  
  12. on beginSprite me
  13.   checkTemplateType()
  14. end
  15.  
  16. on checkTemplateType me
  17.   case InvoiceFormTemplate of
  18.     "Product Invoice":
  19.       sprite(spriteNum).member = member(pProductName)
  20.     "Professional Invoice":
  21.       sprite(spriteNum).member = member(pProName)
  22.     otherwise:
  23.       sprite(spriteNum).member = member(pServiceName)
  24.   end case
  25. end
  26.